RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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Sets tg! (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


oe SOF TWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE bas OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE SF eaten OTICE. A SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE P ROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Faansrekntee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeRPORAT bk NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
H IS NOT SUPPLIED BY DIGITAL. 
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! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
i ABSTRACT: Handles all .FLAGS and .NO FLAGS commands 


i ENVIRONMENT: Transportable 
i AUTHOR: R.W.Friday CREATION DATE: May, 1978 
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REMO0012 Becshelt TeWovembers 1963 

Modified the eiterkel tion ATABLE to_use the new 
macro ATABLE_DEFINITION defined fn ATCODE.REQ. 

KFA00011 Alden 24-Jun-1983 

Fixed bug that bane existing flags from being ‘NATE'd. 

KFA00010 n Alden 21-Mar-1983 

No more Pesathreus flag. 

KFA00009 Alden 15-Mar-1983 

For DSRPLUS: ubied functionality for passthrough flag. 

KAD00008 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


Se 
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; ! ZSBTTL ‘Module Level Declarations’ : 
69 1! ; 
0 § 1 ! TABLE OF CONTENTS: $ 
Se8 1 i 
§ 1 | INCLUDE FILES: ; 
ge : 
6 % 1 LIBRARY 'NXPORT:XPORT'; ! XPORT Library ; 
0 ie ! REQUIRE ‘REQ:RNODEF'; ' RUNOFF variant definitions : 
6 $8 1 ZIF DSRPLUS %THEN : 
0 Be 1 ,sonenv "REQ:DPLLIB'; ! DSRPLUS BLISS Library : 
0207 1 ZELSE $ 
08 1 LIBRARY ‘REQ:DSRLIB'; ! DSR BLISS Library é 
t ’ XFI : 
0211 1! : 
0 \¢ 1 ! MACROS $ 
Be / 
6 13 ! EQUATED SYMBOLS: : 
0 3 1! : 
18 1 ! OWN STORAGE: 
0520 1 | 
Oe) 1 | EXTERNAL REFERENCES: 
34 | 
0224 1 EXTERNAL LITERAL ! Error messages 
8 2 ! RNFFAU; 
7 1 EXTERNAL 
28 (1 atable : atable_definition, ! Action table. Used to identify what type of 
S434 1 ! action is to be taken on encountering any 
0230 1 ! given character. 
os3! 1 FLGT : FLAG_TABLE 
0 ; 1 GCA : GCA_DEFINITION, 
0 $7 \ SCA : SCA_DEFINITION; 
0 5 1 EXTERNAL 
§ ! FLTSO : VECTOR; 
8 1 BIND 
7 ' SEARCH_ORDER = FLTSO : VECTOR; 
41 1 EXTERNAL ROUTINE 
re 1 ERMS, 
4 1 FNDFLG, 
8 44 «1 GETONE, 
45 1 3 
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GLOBAL ROUTINE oft (handler_code, which_flag) : NOVALUE = 
] 


lee 
' FUNCTIONAL DESCRIPTION: 

See the ABSTRACT, above. 
FORMAL PARAMETERS: 


HANDLER coee indicates which command is to be processed. 
WHICH_FCAG indicates to which flag the command applies. 


IMPLICIT INPUTS: 
This routine relies on the fact that the HANDLER_CODEs 
for .FLAG commands are all less than the HANDLER_CODEs 
for .NO FLAG commands. 

IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
'Flag enabling and disabling can occur, ot two different, independent 


‘Levels. These levels correspond to the 

' 1) .FLAGS ALL and .NO FLAGS ALL commands, and the 

! 2) .FLAG <flag name> and .NO FLAG <flag name> commands. 
‘Associated with each flag is a TRUE/FALSE setting that indicates 
‘whether or not it should be recognized. And associated with each 
'flag is also a character that defines which input character is to 
'be recognized as representing that at F Assume that you have some 
jeheres For ‘ that represents the UNDERLINE flag. ‘'X* will be recognized 
‘as a flag only if. 

! 1) The user as said .FLAGS ALL (which is the default) 

' ee AND ee 


OWONO NEW" OOONOULS WO 0M 


' 2) The user has issued a .FLAG UNDERLINE command. 

'Note that the user may issue these commands at any time, and one 
‘command does not imply the other. For example, if he has said .NO FLAGS 
ibént ree *x* will not be recognized 


wr 


as a flag, even if he says .FLAG 
LINE; if he says .FLAG UNDERLINE when .NO FLAGS ALL is 


FISTS PELL 


bet tet tet tet BE RPR PAN RP ON Ae OS 8 OA ee wey ee eee eae 9 
SESLSESLSSSS MEW 20 ODNOAUE WN 9 ODNAU EWN OOO NOUE WH "OOOO 


ee ee eee eee eee eee eee 


SOOOSOOOSCOOCOSCOOO SOOO OCOOCOOOSOOOOOOOoOOoOOoOoOO: 


'UND in effect, 
‘RUNOFF simply remembers the fact that the UNDERLINE flag is enabled, and 
65 ;makes it possible to recognize that flag after the user says .FLAGS ALL. 
§3 'The implementation of this is as follows: 
68 ‘Normally, each position in ATABLE tells what a particular character is. 
$9 'If a character represents a flag the correspond ng ATABLE entry notes 
0 ‘that fact. Otherwise, the ATABLE qesry says something else. 
71 38 ‘when the user says .NO FLAG UNDERLINE gbove example) the ATABLE 
i entry corresponding to the character "x" is changed to indicate 
7 ‘that 'X* is a normal character. When he says, .FLAG UNDERLIN 
74 1 ‘the ATABLE entry is reset to indicate shot x’ reeresents a (ag. 
75 2 'If the user says .NO FLAGS ALL, then again, the ATABLE entry (and 
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Licablg flags) is set to inhibit {Lag recognition. 
‘However, there is another d erence between «NO FLAG UNDERLINE 

t‘and .NO FLAGS ALL. The FLAG [ABLE indicates the actual settin 

eg ee ~ ree ALL ene oO FLAGS ALL commands do not change 

; ; the nge only. 

'The .FLAG UNBEAL INE’ connand may not only change ATABLE (if the user 

‘said .FLAGS ALL) but the FLAG TABLE as well. 


sores te +HANDLER_CODE OF 


Ch_no_flags_all) : 
BEGIN 


EGI 
INCR i FROM 0 TO .search_order [-1] - 1 DO 
BEGIN 


'Disable recognition of only those flags that 
tare marked as enabled. 


IF_.flgt C.search_order C.i), flag_enabled) 
THEN ! 


'Set ATABLE entry to ‘normal’ setting. 
nate (.flgt [C.searchorder C.iJ, flag_character]); 


'Remember that flags are not to be recognized. 
sca_flags = false; 

‘Remember the last .FLAGS ALL/.NO FLAGS ALL command. 
gca.flag_cnd = h_no_flags_all; 


CH_FLAGS ALL) : 
BEGIN 


INCR i FROM 0 TO .search_order [-1] - 1 DO 
BEGIN 


‘Enable recognition of only those flags that are 
'marked a enabled. 
d zttet -search_order C.iJ, flag enabled] 


'Mark correppondin ATABLE entry as representing a {Lag. 
ne atable C.figt C.search_order C.iJ, flag_character]] = a_flag; 


‘Remember that flags are to be recognized. 
sca_flegs = t 


rue; 
‘Remember Last .FLAGS ALL/.NO FLAGS ALL command. 
. gca.flag_cmd = h_flags_all; 


COTHERWISE) : 


HANDLER_CODE LSS H_NO_FLAGS_ALL 


‘Special case for DSRPLUS: FLAG NOPERMUTE command's handler 
agoee is not in the same range as the others. 


— 
v0 
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cc 
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ehandler_code eql h_flags_nopermu 
xf I 
THEN 
BEGIN 'It's a .FLAGS type command 
OCAL 
hold_khar, 
alternate_flag; 'This will = WHICH_FLAG unless we are 
‘processing SUBINDEX, in which case it 
twill then point to the INDEX flag. 
IF .which_flag EQL s 


SSPELOLESE SEE ES 2 eee SCC Ce 
= = = ee eens 


ENE DARE Nd at 4 oe et ER PRR ON Ae 


NAVE WN @ OOO NAME WN 0 OD NOU EAR SQ OVOONOUES WO 
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which_ bx_flag 

THEN Slternate_flag = IND_FLAG 
ELSE alternate_flag = .which_flag; 
'Get the new flag eperpeter if any. 

hold_khar = getone (.wh ch_flag, -alternate_flag); 


IF .hold_khar eql 0 
THEN 


'No new flag character. Use present one. 
hold_khar = .flgt C.which. flag, flag_character); 


'Check whether GETONE found a ree conflict. If so, complain 
‘and disallow the indexing command. 
Figs hOtE Aner LSS 0 


BEGIN 


LOCAL 
temp; 

temp = -.hold_khar; 

eras aah temp, 1); '*Flag already in use’ 

sanich, flap EQL com. flag 
which flag EQL con_flag 
ewhich_flag EQL efo_flag 

OR .which_flag EQL sbx_flag) 

-sca_Tflags 
THEN 
BEGIN 


'Set corresponding ATABLE oqery to indicate that the 
‘old flag character is now just a normal character. 
IF .flgt C.which_flag, flag_enabled] EQL true !Flag was enabled. 


nate (.flgt C.which_flag, flag_character]); 
imake ATABLE entry show the new character is a flag. 
gtaole C.hold_khar) = a_flag; 


flgt f-which. flag. flag_characterd = ,hold_khar; !Save new flag character. 
figt ewhich_fiag, flag_enabled] = true; 'Flag is enabled. 

ELSE 
BEGIN ‘It's a .NO FLAGS type command 


se 
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; 39 ? flgt C.which_flag, flag_enabled]) = false; 'Flag is disabled. : 
: 2% 4 IF NOT ; 
; sanich flag EQL com 3f {99 : 
H R .whith flag EQL con_flag ; 
; 5 OR .which flag EQL efo_flag ; 
; ewhich_flag EQL sbx_ flag) : 
: 9 4 THEN 3 
3 rs 5 4 ‘Normal cases : 
3 § 5 (fndflg (.flgtl.which _flag, flag. character]) eql flag_count+1) F 
: Be ? nen -$ca_flags : 
; 8 g 4 'Set agorrespondtng ATABLE entry to indicate it's a ‘normal’ character. : 
: , ? (.flgt C.which flag, flag_character]) : 
; 05 § 4 ‘Because this character represents another $ 
: 4 'flag as well, leave ATABLE alone so that $ 
; 4 & 'the (Bere flag will be recognized. 3 
; 308 5 4 3 
: +4 $ END; : 
: $1] : res.EN 
: ig 0 END; ‘End of OFT ; 
-TITLE OFT Make changes to flag table : 

TIDENT \V04-000\° : 

.EXTRN RNFFAU ATABLE FLGT ; 

*EXTRN GCA Sta : 

EXTRN RMS. FNOFLG. GE TONE F 

“EXTRN. NATE ; 

.PSECT S$CODES,NOWRT,2 ; 

O7FC 000 -ENTRY OFT, Save R2,R3,R4,R5,R6,R7,RB,R9,R10 : 0246 ; 

A 006 EF 9€ 00 MOVAB ATABLE R10 ; : 

9 G EF E MOVAB 3 3 

8 G EF 9€ 19 MOVAB SEARCH eee RB : : 

G EF E 1 MOVAB free g : 

6 6 Ff 1 MOV xe 133: f : : 

F 4 ¢ SUBL ; : 

046 AC D MOVL HANDLER CODE, RO 3 8 11 3 

0000007C¢ F p CMPL Ro. #125 7 0314 3 

BNEQ 3 3 3 

33 i) MOVL Py Rmnertie R3 3; 0317 : 

‘fj BR os’ : : 

2 ME RIB Gh Hapa gmp. mo pa S| 

40 DD 0004 PUSHL —FLGT#72 ko : 0325 F 

$3 Q ia 4A CALLS al nat 3 3 

EC 2 F 9 23 AOBLSS 23, I, 1$ 3 1 : 

90 8 cLRL asfasts ; q? ; 

00000000G_ FF C F oh ? Pey BL #124, aGCA+132 : HD, : 
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00000046 = &F 50 3S: CMPL ~=s RO, «#70 : 0334 F 

} BNEQ eg : ; 

51 ‘ MNEGL fl. I + 0337 : 

04 A841 D 4$: MOVL SEARCH RDERCIJ, RO + 0341 ; 

B8 Abs E BLBC =: FLGT Rp § : ; 

664 p MOVL Lore? Ro}, RO + 0344 : 

6A4 7 MOVE #3, ATABLELRO) ; : 

EA ea BF 7D 5$: AOBLSS SEARCH ORDER=4, 1, 4$ ; 0337 : 

000000006 Fr 46 BF oA : MOV ZBL #76, "aGca+t32 3 $0 : 

33 08 A p 68: MOVL WHICH FLAG, R3 + 0371 : 

52 ASHL = #2, RB, R + 041 ; 

0000007c = BF p CMPL) =soRO, #104 : 035 $ 

8 00090 BGEG }46=s« 1:3 : ; 

3 D4 0009F CLAL «oR + 0371 ; 

0D 3 01 Ai CMPL  =soaR3, #13 : 3 

, 4 AG BNEO 40s 7$ : ; 

5 D OOAG INCL RS : : 

50 A Dg OOA8 MOVL #10, ALTERNATE_FLAG + 0372 : 

50 : D0 DOAD 7$: MOVL R3, ALTERNATE_FLAG + 0373 : 

DD 00080 8$: PUSHL  ALTERNATE_FLAG : 0375 ; 

53 DD 0008 PUSHL R : : 

000000006 Ef 0 FB 000B4 CALLS #2, GETONE : ; 

4 dO 00088 MOVE RO, HOLD_KHAR : : 

04 #1 BRek BNEQ 98 3; 0377 3 

54 6643 pO 000C MOVL FLGT+72CR3), HOLD_KHAR : 0380 : 

16 18 000C4 9$ BGEQ 1 3: 0384 3 

6E 34 CE O0¢6 MNEGL HOLD_KHAR, TEMP : 0389 ; 

1 BD 00¢ PUSHL #1 : 0390 : 

04 AE 9F 000CB PUSHAB TEMP : : 

000000006 8F ODD OOCE PUSHL #RNFFAU ; ; 

000000006 EF 03 FB 6 D4 CALLS #3, ERMS F ; 

04 00008 RET : 0386 : 

OE 53 D1 OOODC 10$:  CMPL 3, #14 + 0395 ; 

: 13 QO0DF BEQL «128 ; : 

02 D1 Q0E| (MPL =soR3, #2 + 0396 ; 

1D 13 OO0E4 BEQL 128 ; ; 

01 5 : 0 re CMPL =séRS, #1 : 0397 : 

1 ANE BEQL ss «128 ; : 

15 55 €£ £B BLBS si 128 : 0398 : 

11 09 E E BLBC = @SCA+144, 12s > 0399 3 

01 BB A643 D1 O00F CMPL FLGTCR5J, ‘ > 0404 3 

06 12 O00F BNEG = 3 : 

6643 DD 000F9 PUSHL FLGT+72CR3) : 0406 : 

oats 0 6B fF 11$ mous ; : Nit HOLD_KHAR] : 04 : 

66 2 oF 12$ PUSHAB Peer PaPnSS ’ : be ; 

9E 54 D0 001 MOVL HOLD_KHAR, a(SP)+ ; : 

B8 Aohe F 001 PUSHAB FLGTERe] : 0413 : 

9E 0 i MOVL #1, a(SP)+ F ons ; 

BB A642 7 4 13$ PUSHAB FLGTER2 ; 833 : 

O€ A D1 113 CMPL =soR3, #14 > 0420 : 


; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:OF T/OBJ=OBJ$:OFT MSRCS$:OF T/UPDATE=(ENHS: OFT) 
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Module Level Declarst ons | 300-138 9}: 43: 3§ DISKSVMSMASTER: CRUN sore Sector. BLI;1 thot v4 
1 11A BEQL 14$ : $ 
02 9 11¢ CMPL Rg #2 : 3 
11F BEQL «=s«148 : ; 
01 p 121 CMPL =sR3, #1 : ; 
124 BEQL 148 : ; 
0D D1 001 $ CMPL = aR3, #13 : ; 
10 13 001 BEQL ~=s«14$ : ; 
Ose lee RURIAS atgge72tn2 : : 
000000006 FF fi FB 1% CALLS #1, FNDFLG : ; 
3 0D 1 CMPL RO, #19 : 5 
oc iF 13A BNEQ  14$ : ; 
08 00 =«€68B 3 1 BLBC aSCA+144, 14$ : 3 
6642 SF 0014 PUSHAB FLGT+72CR2] : ; 
9E DD 0014 PUSHL a(SP)+ : H 
69 01 FB Bale CALLS #1, NATE : HY 
04 00148 1438: ET : : 
3; Routine Size: 329 bytes, Routine Base: $CODE$ + 0000 ; 
14 0441 1 : 
3 31 ee 1 END 'End of module . 
316 0445 0 ELUDOM : 
; PSECT SUMMARY ; 
; Name Bytes Attributes ; 
: SCODES 329 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
: Library Statistics ; 
Bi Qe Ne Ey os OOP es el et a” een Symbols -------- Pages Processing : 
: File Total Loaded Percent Mapped Time : 
: _$255$DUA28:CSYSLIBIXPORT.L32;1 59 0 252 0:00.1 F 
3 Stitt F beret ie SRCIDSRLIB. L32;1 1325 23 1 86 800073 : 
; COMMAND QUALIFIERS 3 
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Size: 

Run "hess 8 

Elapsed Time: 3° 

Lerenes/CPU-Rin; 1 36 

Memor 92 pages 


329 6. + 0 data bytes 
Lines/CPU M ; 
(ation: 
Compilation “Complete 
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